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The Apple Assembly Line is still growing! I now am sending 
out over 300 copies per month! It is also growing in size, 
aS you can see: this is the first 20 page issue. 
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Second "Disk of the Quarter" 


The second AALDQ is ready! If you would like to have the 
source code on disk in S-C Assembler II Version 4.0 format 
for all the programs which have appeared in AAL issues 4, 5, 
and 6, then send me $15. I will send you the disk, and you 
already have the documentation. DQ#l, covering issues l, 2, 
and 3, is also still available at the same price. 


Some New Books about the 6502 


Apple Machine Language, by Don Inman and Kurt Inman, 
published by Reston (a Prentice-Hall Company). Hard cover, 


296 pages, $14.95. If you are an absolute beginner, this is 
the book for you. You start by typing in an Applesoft 
program which helps you POKE in machine language code, and 
CALL it. Most of the examples involve lo-res graphics and 
sound. One chapter describes the Apple Mini-Assembler (which 
resides in the Integer BASIC ROMs). They never get around to 
a real assembler. 


Practical Microcomputer Programming: the 6502, by W. J. 
Weller, published by Northern Technology Books. Hard cover, 


459 pages, $32.95. Over 110 pages of the book are devoted to 
a listing of an assembler and a debugging package. A coupon 
inside the back cover can be redeemed for a tape copy which 
will run on the Apple II. By adding $7.50 to the coupon, you 
can get a disk version. The package can be loaded from the 
disk, but there is no capability for keeping source or object 
files on disk. 


A Beautiful Dump .......-.-. +. «+ + - « Robert H. Bernard 


The old saying, "You can't tell the players without a scorecard," 
is certainly true for program debugging, and sometimes the only 
way is to look into memory and see what is there. The Apple II 
Monitor has a memory dump command, but I found it inadequate: 
it's formatted for a 40-column screen, it doesn't show ASCII 
codes, and getting output on a printer is a hassle. 


So I sat down and wrote a quick assembly language memory dump 
modeled after a System/360 core dump (remember when computer 
memory was called "core"?), with both hex and ASCII. My first 
attempt took up more than one page of memory and was trapped where 
I assembled it by absolute internal references. I massaged it 
until it fit in less than a page and made it relocatable ("run 
anywhere") by making all internal jumps into relative branches. 

(A "page" in 6502 jargon is 256 bytes, with addresses running from 
xx00 through xxFF.) 


Next I decided to add a printer feature; while I was at it I made 
it use 80 columns on the printer, 40 on the screen. 


Next I made it print the bytes in groups of four, with a space 
between every four bytes. Sixteen bytes are printed per line on 
the screen, 32 on an 80-column printer. Spacing in groups of four 
makes it easier to spot certain address locations. If a byte 
value is a printable ASCII code, I print the character above the 
hexadecimal value. (Values $00-Sl1F and $80-S9F do not print.) 


Then I wanted options to browze one screenful at a time, and 
backup when I passed the place I wanted to look at. 


You probably think that by now the program is at least two, and 
Maybe more, pages long. Not so! All the while I was able to keep 
it in only one page (which doesn't say much for my original code). 


The end result (after 21 versions!) is listed here for your 
examination and pleasure. 


Operating Instructions: BRUN the program anywhere in memory that 
you have a free page (256 bytes). When the "?" prompt appears, 
enter the address of the memory you want to dump in any of the 
following ways. After the address or address range, type the 
return key. 


S.E To dump memory from S to E on the screen. 
S-E To dump memory from § to E on the printer. 
S,E To dump memory from § to E on the screen, 


but pauses after each screenful; 
press space bar to continue, 
Or press control-C to stop. 


S To dump from S, pausing after each line; 
press space bar to dump next line, 
press letter "B" to back up one line, 
or press control-C to stop. 
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APPLE II RELOCATABLE MEMORY DUMP PROGRAM 
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MONITOR ROM ROUTINES 
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SET OUTPUT PORT TO SLOT (A) 
SET VIDEO 
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ITEMS P 
SAME AS 


K 
gs 
BOS 
3 
5 
FB 
3 
z 
E 


--HI ORDER 
3E ENDING ADR LO ORDER 
3F -eHI ORDER 


1 
1480 SCITMS .EQ 16 BYTES PER LINE 


SCREEN 
PRITMS . 32 BYTES PER LINE PRINTER 
Tres PER PAGE 


-OR $0800 


5 
1550 MEMDMP JSR .SETVID_, SET PREO 
15 ?' FOR BOUNDS 


Sve ELeovuss kU "33 
DBOovUIHHOOU0oo 


SET PROMPT CHAR 
JSR MON.GIINZ CR, THEN GET INPUT 
ZMOD: SET 


JSR . E HEX DECODE MODE 
STY YSAV REMEMBER SCAN POS. 
ANY ADR SCANNED? 
° NO. TERMINATE 
.DA MON.MON MONT'TOR ENTRY, (TW CASE YOU 
TO CHANGE RETURN JMP MON .MON 


+ + 


e 
W 


LDA #-SCITMS BYTES PER SCREEN LINE 
STA ITEMCT ITEMS PER LINE 

JSR MON.SETMOD SET TO SCAN 2ND ARG 
CMP #5AD IS OPTION = '-' ? 

BNE . OTHERS 


SR -OUTPOR 
LDA #-PRITMS BYTES PER PRINTER LINE 
STA cT PER it 


0831- C9 AE 1790 
0833- FO 04 1800 
Bc Be Hea 
083B- 20 A7 1840 
O83E- 84 34 1850 
0840- 08 1860 
0842- 85 2E 1870 
1880 
0844- 20 8E FD 18 
0847- A5 30 1900 
0849- 25 3C 1910 
084B- 85 3C 1920 
4D- AA 1930 
4E- A4 3D 1940 
50- 20 40 F9 1950 
0853- a6 30 1960 
0855- AO 00 1970 
0857- FO 15 1380 
9- 0Q CO 2 
agsc- 10 49 © 3030 
O85E- AD 10 CO 
0861- 38 2030 
0862- BO 9C 2040 
2050 
0864- 98 2060 
0865- 29 03 2070 
0867- DO 05 2080 
OB ee AR AO PD 2090 
ee AS AD S110 
J9- 20 ED FD 2120 
3- 3C 2130 
0875- C9 20 21 
0877- 90 08 2150 
0879- C9 80 2160 
087B- 90 06 4176 
087D- C9 AO 80 
87F- BO 02 2190 
0881- A9 AO 2200 
0883- 20 ED FD 2210 
86- C8 $3 0 
0887- E8 0 
0888- DO DA 2240 
O88A- 20 8E FD 2250 
2260 
08 A2 03 2270 
O88F- 20 4A F9 3280 
0892- A6 30 290 
0894- AO 00 3300 
0896- FO 12 2310 
3320 
0898- BO A6 30 
O89A- C9 2 40 
89C- DO A 5 
O89E- A5 3C 3360 
O8A0- C5 2D 28 
Gand ES 3p 9380 
O8A6- 90 a 2400 
O8A8- BO B 2410 
3438 
O8AA- 98 2430 
Q8AB- 29 03 2440 
Q8AD- 2450 
O8AF- AQ AD 2460 
O8Bl- 20 ED FD 2470 
B4- Bl 3C 2480 
O8B6- 20 DA FD 2490 
O8B9- C8 2500 
O8BA- E8 2510 
O8BB- 520 


DO ED 2 
O8BD- 20 8E FD 2530 


2 CMP # rot? 
BEQ .1 YES. 2 ARGS 
CMP # mt 
BNE 
1 LDY YSAV PTR TO IN BUFFER 
JSR MON. 
STY YSAV PTR TO IN BUFFER 
SETPGL LDA #TIMSPG ITEMS PER PACE 
. STA PCCNI 
NEXTLN JSR MON.CROUT | SKIP A LINE 
LDA ITEMCT —-ITEMS PER LINE 
AND STARTING ADR 0 MOD ITEMCT 
STA FRADRL 
TAX 
LDY FRADRH  ..1O PRI 
JSR MON.PRNIYX PRINT IT IN HEX 
LDX OF BYTES THIS LINE 
LDY 40 I 
. BEQ NOBLNK DON'T SPACE FIRST TIME 
CHKKEY LDA KBD KEY DOWN? 
BPL CKDONE 
LDA KBSTRB YES. CLEAR KEYBOARD 
SEC ARE FOR 
MDMP2 BCS MEMDMP JMP TO START 
NXTCHR TYA FOR 
AND #S03 0 MOD 4 
BNE 
LDA #SA0 
JSR COUT PRINT A BLANK 
NOBLNK LDA #S$A0 
JSR MON. PRINT A BLANK 
LDA rY 
CMP #$20 CNIRL CHAR? . 
BCC. YES. SUBSTITUTE BLANK 
CMP #$80 CNIRL CHAR? 
BCC NO. OK TO PRINT 
cmp #SaA0 CHAR? 
BCS , NO. OK TO PRINT 
el LDA #SaA0 BLANK 
2 JSR MON .COUT 
INY POINT 
INX ON THIS LINE? 
NXTCHR 
JSR MON. . 
* PREPARE ‘TO. PRINT SAME ITEMS IN HEX 
JSR MON. PREL2 OUTPUT (x) BLANKS 
LDX ITEMCT ITEMS PER 
LDY 40 Nr 
. BEQ NXTHEX ) 
SETPL1 BCS SETPGL SET PG 
CKOPT CMP # NO. OPTION=',' ? 
NXTIN] BNE NEXTLN ; TO 
CKDONE LDA FRADRL ‘TEST IF DONE 
CMP 'TOADRIL 
LDA FRADRH 
SBC 'TOADRH 
BOC NEXTIN FROM < TO 
MDMP1 BCS MDMP2 JUMP TO START 
NXTHEX TYA TEST FOR 
AND #503 0 MOD 4 
BNE . IF NOT, SKIP BLANK 
LDA ene 
JSR MON.COUT PRINT A BLANK 
l LDA (FRADRL),Y BYTE TO OUTPUT 
JSR Ate igs E OUTPUT IN HEX 
INY NEXT 
INX DONE ON THIS LINE? 
BNE NXTHEX NO 
JSR MON.CROUT ‘YES. CR 


2540 * ADVANCE DUMP ADDRESS 
O8co- 38 2550 PREPARE FOR SUBTRACT 
O8Cl- AS 3c 0 3—_- 2560 LDA FRADRL S 
08C3- £5 30 =—s-_- 2570 SBC ITEMCT -ITEMS PER LINE 
08C5- 85 3c 80 STA PRADRL 
O8C7- 90 04 2590 2 NO 
O08C9- F6 3D ~—_. 2600 INC FRADRH PAGE BOUNDARY 
O8CB- FO DB MDMP] 
O8CD~ AS 31 2620 .2 OPTION 
O8CF- C9 AF 2630 CMP #SAE Ht cAQREION Le 
O8Dl- FO BG 264 CHKKEY NO. IF DOWN 
08D3- C8 650 CHKPAG DEC PGCNI PAGE END? 

8D5- DO C3 6 BNE CKOPT NO. CHECK OPTION 
O8D7- 20 OC FD 2670 PAUSE JSR RDKEY | GET A CHAR 

DA- C9 83 2680 CMP #583 CNIRL-C? 
O8pC- FO CA _—-26 90 BED 1 YES. START OVER 
O8DE~ C9 C2 =: 2700 #5C2 WAS CHAR READ A 'B'? 
O8FO- FO 0A ~—2710 BACKUP YES 

8E2- AS 31 =. 2720 OPTION 
O8E4- C9 M2730 CMP $C OPTION='," ? 
O8F6- FO BO 2740 BEQ Ll YES 
O8E8- E6 2E $2750 ADVNCE IN’ PGCNI ONE MORE TIME 
O8EA- DO BO 2760 . BNE NXTLN] JMP TO NXTLN 
O8fc- AS 3C. 2780 BACKUP LDA FRADRL CARRY IS SET 
O8EE- E9 90 2790 SBC #144 BACKUP SCI'IMS* (TIMSPG+1) BYTES 
O8FO- 85 3c =—-_:2800 STA FRADRL SAVE LO ORDER 
O8F2- BO 02 ~=2810 BCS .1 NO CARRY 
O8F4- C6 3D —- 2820 DEC FRADRH PROPOGATE CARRY 
O8F6- 20 58 FC 2830 l JSR MON. HOME CLEAR 
O8F9- 38 284 SEC SIMULATE JMP 
O8FA- BO 9C 2850 . BCS SETPLL ..1TO SETPGL 
OOFC- 2870 ZZSIZE .EQ *-MEMDMP PROGRAM SIZE 


DISASQA® - Tne Intecticent 2-Pass DisassemBcer For Tue APPLE II anp APPLE i! P.us 
IS AN INVALUABLE AID FOR UNDERSTANDING AND MODIFYING MACHINE LANGUAGE PROGRAMS 


Version 2.0 Orfrers THese Branp New Features: 


@ SELECTABLE OUTPUT FORMATS ARE DIRECTLY COMPATABLE wiTH DOS TOOLKIT, LISA anp S-C Assemacers 
e NO RESTRICTION ON DISASSEMBLED BLOCK LENGTH (NOW YOU CAN DISASSEMBLE DOS OR APPLESOFT IN ONE OPERATION) 


e CORRECTLY DISASSEMBLES DISPLACED OBJECT gone (THE PROGRAM BEING DISASSEMBLED DOESN'T HAVE TO RESIDE 
IN THE MEMORY SPACE IN WHICH IT EXECUTES 


® USER DEFINED LABEL TABLE REPLACES ARBITRARY LABEL ASSIGNMENTS (EXTERNAL AND pase ZERO LABELS CAN NOW 
BECOME MORE MEANINGFUL, E.G.- JSR WAIT, LDA WNDTOP ~- USE OF TABLE IS OPTIONAL 


@ MONITOR ROM LABEL TABLE ALSO INCLUDED WITH OVER 100 OF THE MOST COMMONLY USED SUBROUTINE LABELS (LABEL 
TABLE SOURCE IS PROVIDED SO YOU CAN EXTEND AND CUSTOMIZE IT TO YOUR OWN NEEDS) 


Pius Att Tue Features Or Toe Ornicginar DISASA 


@ 100% MACHINE LANGUAGE FOR FAST OPERATION  AUTO-PROMPTING FOR EASY USE e LABELS AUTOMATICALLY 
ASSIGNED AS PG ZERO, EXTERNAL AND INTERNAL e LABELS AND ADDRESSES ARE SORTED FOR USER CONVENIENCE 
e EQUATE DEFINITIONS GENERATED FOR PG ZERO AND EXTERNAL REFERENCES © AUTO SOURCE SEGMENTATION FOR 
EASIER READING AND UNDERSTANDING e AND MORE! 


PROGRAM DISKETTE AND USER DOCUMENTATION: $ 30.60 (SHIPPING & HANDLING INCLUDED) 


UPGRADE KIT FOR PURCHASERS OF ORIGINAL DISASM: $ 12.50 (piskeTTE/DOCUMENTATION) 


RAK-WARE 
4) RacpH Roan 
West Orance, NJ 07052 


Decision 


Decision Systems 
S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Appiesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE.... CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$36. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handiing, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Appie il is a registered trademark of the Apple Computer Co. 


So-Called Unused Opcodes 


The 6502 has 104 so-called unused opcodes. The various charts 
and reference manuals I have checked either leave them blank or 
call them "unused", “no-operation", or “future expansion". The 
6502 has been around since 1976; I think we have waited long 
enough to know there will be no "expansion". But are they really 
unused? Do they have any effect if we try to execute them? Are 
they really no-ops? If so, how many bytes does the processor 
assume for each one? 


These questions had never bothered me until I was looking through 
some disassembled memory and thought I found evidence of someone 
USING the "unused", It turned out they were not, but my 
curiosity was aroused. Just for fun, I built a little test 
routine and tried out the SFF opcode. Lo and behold! The 6502 
thinks it is a 3-byte instruction, and it changes the A-register 
and some status bits! 


About 45 minutes later I pinned it down: FFxxyy performs exactly 
the same as the two instructions FExxyy and FDxxyy. It is just 
as though I had executed one and then the other. In other words, 
anywhere in a program I find: 

INC VARIABLE, X 

SBC VARIABLE, X 
I can substitute: 

HS FF 

-DA VARIABLE 
11d) 


You might wonder if I will ever find that sequence, I did try 
writing a program to demonstrate its use. It has the advantage 
of saving 3 bytes, and 4 clock cycles. (The SBC instruction is 
executed DURING the 7 cycles of the INC instruction!) 


TEST LDX INDEX 
LDA #10 FOR COUNTER (X)=10 TO 39 
STA COUNTER,X 

el LDA COUNTER,X GET COUNTER (X) 


JSR SFDDA PRINT IT OUT (OR WHATEVER) 
LDA #39 LIMIT 

e-HS FF DO INC AND SBC 

~-DA COUNTER ON COUNTER, X 

BCS .1l NEXT 

RTS 


Are there any more? Before I could rest my curiosity, I had 
spent at least ten more hours, and had figured out what all 104 
“unused opcodes" really do! 


The center-fold chart shows the fruit of my detective work. The 
shaded opcodes are the "unused" ones. I don't know if every 6502 
behaves the same as mine or not. Mine appears to be made by 
Synertek, and has a date code of 7720 (20th week of 1977). It 
could be that later versions or chips from other sources (MOS 
Technology or Rockwell) are different. If you find yours to be 
different, please let me know! 


Twelve of the opcodes, all in column "x2", hang up the 6502; the 
only way to get out is to hit RESET or turn off the machine. 


There are 27 opcodes which appear to have no effect on any 
registers or On memory. These could be called "NOP", but some of 
them are considered by the 6502 to have 2 or 3 bytes. I have 
labeled them "nop", "nop2", and "nop3" to distinguish how many 
bytes the 6502 thinks it is using. You could call nop2 “always 
skip one byte" and nop3 “always skip two bytes”. 


The action most of the rest perform can be deduced by looking at 
the other opcodes in the same row. For example, all of the xF 
column (except 8F and 9F) perform two instructions together: 
first the corresponding xE opcode, and then the corresponding xD 
opcode. In the same way, most of the opcodes in column x7 
combine the x6 and x5 opcodes. The x3 column mirrors the x7 and 
xF columns, but with different addressing modes. And finally, 
the xB column mimics the other three columns, but with more 
exceptions, Most of the exceptions are in the 8x and 9x rows. 


A few of the opcodes seem especially interesting and potentially 
useful. For example, A3xx performs three steps: first it loads 
xx into the X-register; then using this new value of X, it moves 
the byte addressed by (xx,X) into both the A- and X- registers. 
Another way of looking at this one.is to say that whatever value 
xx has is doubled; then the two pagezero bytes at 2*xx and 2*xx+l 
are used as the address for loading the A- and X-registers. You 
could use this for something, couldn't you? 


There are five instructions which form the logical product of the 
A- and X-registers (without disturbing either register) and store 
the result in memory. If we call this new instruction "SAX", for 
"Store A&x", we have: 


83 SAX (z,X) 8F SAX a 
87 SAX Zz oF SAX a,X 
97 SAX Z,Y 


We get seven forms of the combination which shift a memory 
location using ASL, and then:inclusive OR the results into A with 
an ORA instruction. If we call this new instruction ALO, we 
have: 


03 ALO (z,X) 1B ALO a,Y 
13 ALO (z),Y OF ALO a 
07 ALO z 1lF ALO a,X 


17 ALO z,X 


The same seven forms occur for the combinations ROL-AND, LSR-EOR, 
and ROR-ADC. Note that if you don't care what happens to the 
A-register, and the status register, these 28 instructions make 
two extra addressing modes available to the shift instructions: 
(z,X) and (z),Y. 


Opcodes 4B and 6B might also be useful. You can do an 
AND-immediate followed by LSR or ROR on the A-register. 


Opcodes 93, 9B, and 9E are really weird! It took a lot of 
head-scratching to figure out what they do. 


93. Forms the logical product of the A-register 
and the byte at z+l (which I call "“hea") 
and stores it at (z),Y. 


9B Forms the logical product of the A- and X- 
registers, and stores the result in the S- 
register (stack pointer)! Ouch! 

Then it takes up the third byte of the 
instruction (yy from 9B xx yy) and adds one 
to it (I call it “heatl"). Then it forms 
the logical product of the new S-register 
and “hea+l* and stores the result at "a,Y". 
Whew! 


9E Forms the logical product of the X-register 
and “hea+l" and stores the result at "a,Y". 


We get six forms of the new "LAX" instruction, which loads the 
same value into both the A- and X-registers: 


B3 LAX (2),Y AB LAX #v 
A7 LAX Z AF LAX a 
B7 LAX Z,Y BF LAX a,Y 


I skipped over BB, because it is another extremely weird one. It 
forms the logical product of the byte at "a,Y" and S-regigster, 
and stores the result in the A-, X-, and S-registers. No wonder 
they didn't tell us about it! 


Right under that one is the CB instruction. Well, good buddy 
(please excuse the CB talk!), it forms the logical product of the 
A- and X-registers, subtracts the immediate value (second byte of 
CB xx), and puts the result into the X-register. 


The Cx and Dx rows provide us with seven forms that do a DEC on a 
memory byte, and then CMP the result with the A-register, 
Likewise, the Ex and Fx rows give us seven forms that perform INC 
followed by SBC. 


It is a good thing to be aware that the so-called “unused” 
opcodes can be quite dangerous if they are accidentally executed. 
If your program goes momentarily wild and executes some data, 
chances are something somewhere will get strangely clobbered. 


Since all of the above information was deduced by testing and 
observation, I cannot be certain that I am 100% correct. I may 
have overlooked or mis-interpreted some results, or even made a 
Clerical error. Furthermore, as I said before, my 6502 may be 
different from yours. You can test your own, to see if it works 
like mine. 


And if the whole exercise seems academic to you, you can at least 
enjoy the first legible and complete hexadecimal opcode chart for 
the 6502. 


Fx 


SBC 


x2 x3 x4 


ORA 
ORA 
eet net Be tetas AND 
AND 
EOR 
EOR 
: ane 
ADC 
STA 
STY z,X STA 
LDA 
Di LDY z,X LDA 
ng CMP 
eS rene 
SBC 
(z) ,¥ ENC (2),-¥ nop2_ SBC 
~ SBC (z),¥ ee 
A A-register (Accumulator) 
iS) S-register (Stack Pointer) 
X X-register 
Y Y-register 
a 2-byte absolute address 
r l-byte relative address 
V l-byte immediate value 
Zz l-byte pagezero address 


--> "result is stored in" 


= 10 = 


LDX 


LDX 


DEC 


DEC 


INC 


INC 


x7 


x8 x9 xA xB xC xD XE xF 


PHP ORA #v 
CLC ORA a,¥ 4 
PLP AND #v 
SEC AND a,Y 
PHA EOR #v 
CLI EOR a,Y 
PLA ADC #v 
SEI ADC a,¥ | 


DEY 


TYA STA a,Y 


TAY LDA #v LDA 


CLV LDA a,Y LDA 


INY CMP #v CMP 


CLD CMP a,Y CMP 


INX SBC #v SBC 


SED SBC a,Y SBC 


hea high-byte of effective address 
93: the byte at z+l 
9B: 3rd byte of instruction 
9E: 3rd byte of instruction 


& and-function (logical product), 


hang computer hangs up, only way to 
regain control is to hit RESET 


nop i-byte instruction, no operation 


nop2 2-byte instruction, no operation 
nop3 3-byte instruction, no operation 


- lj] - 


EDITASM & COPY on the Language Card by Chuck Welman 
Assembler Modifications: 


1) Address $101C,which originally held a JSR $l1F80, now does a JSR 
$24CC, where Bank #1 of the language card is turned on with a “dummy” 
LDY $C088, then the JSR $1F80 is performed and finally a RTS returns 
control to $101F where the initialization routine continues. 


2) Address $1063 (modified from "B.EDIT2") does a JMP #24D3, where the 
subroutines "NEW.NML" & “MY.NML" from "B.EDIT2" now reside. 


3) Address $1079 does a JMP now instead of a JSR (no change from 
"B.EDIT2"). 


4) Address $1125 is now a RTS (no change from "B.EDIT2"). I added the 
two NOPs at $1126 & $1127, because I don’t like to leave “strange” code 
dangling. 


5) Address $1246 now contains COPy instead of LOAd as a command and 
its associated address directs it to $D000, 1 byte before the COPY 
routine at $D001. The reason that COPY doesn't start at $D000 is 
obscure and warrants an explanation. If it were to start at $D000, the 
command table address would be SCFFF, the mere referencing of which is 
a signal to the APPLE II to turn OFF its peripheral cards! If an 
80-column card were in use, for example, it could be turned off each 
time you tried to do a COPY! 


6) Address $126E (incorrectly identified as $2746 in Lee Meador's 
article, AAL 1/81), now contains EDIt instead of SAVe. It points to 
$D13B, 1 byte before the EDITASM routine at $D13C. Thanks, Lee, for 
the terrific idea! 


7) Addresses $24D3-$24E3 now contain the code which resided at 
$0824-$0834 in "B.EDIT2". 


8) Addresses $24E4-$24EA now contain the code which resided at 
$0835-$083B in "B.EDIT2". 


9) I changed Mike Laumer's <ctrl E> to <ctrl N>, to match Neil 
Konzen's PLE convention. 


10) I also wanted an "instant recall" feature for the "last line 
edited". Typing EDIT without any argument works exactly as described 
by Mike, UNTIL a line has been edited. Then typing EDIT will cause 
that last edited line to be re-displayed. It doesn't "forget" that 
line # until a new line # is used as an EDIt argument. 


SO...I have both COPY & EDIT capability, with all of the normal RAM 
space still available for assembled code! There's plenty of space left 
on the language card for future expansion (although there's only about 
$10 bytes unused in the $24EB area!). Well, aren't you excited? I 
sure was! - what are you waiting for? Get coding!! 


EDITASM & COPY on the Language Card by Chuck Welman 
B.EDIT2 Modifications: 
1) Change the following lines: 


1060 ~OR $D13C 
1070 eTF EDITASM ASD13C Please use this name! 


2) Delete lines 1360-1700 
3) Add the following lines: 


1360 NEW.NML .EQ $24D3 
1370 MY.NML -EQ $24D9 


1380 NEXT ~BQ $24E4,$24E5 
1390 END ~EQ $24E6 , $24E7 
1400 CHAR ~EQ $24E8 
1410 EDPTR -EQ $24E9 
1420 FKEY -EQ $24EA 


4) If you want EDIT to provide "instant recall", change line: 
1740 BMI .4 YES, .4! 

5) If you want <ctrl N> as “go to end of line” command, change line: 
4330 -DA #S8E, E.END-1 

6) SAVE EDITASM.SOURCE (or any name) 

7) ASM the code 

COPY Modifications: 

1) Add the following lines: 


1292 ~OR $DO001 
1294 ~TF BMC ASDO001 Please use this name! 


2) SAVE BLOCK MOVE/COPY.SOURCE (or any name) 

3) ASM the code 

Now...key in "Modifier EXEC Maker". If you have an APPLE II Plus, 
delete lines 40-50. SAVE it, then RUN it to create the textfile 


ASMDISK 4.0 MODIFIER. Now EXEC the file which will do all the hard 
work! I have my “Hello” program do the EXECuting! Good luck! 


10 D$ = CHRS$ (4) 
20 PRINT D$;"OPEN ASMDISK 4.0 MODIFIER" 

30 PRINT D$;"WRITE ASMDISK 4.0 MODIFIER" 

40 REM GET INTO MAIN BOARD ROM - OTHERWISE ASSEMBLER BOMBS WHE 
N CALLED 

50 PRINT "INT* 

60 REM TURN ON 'MON‘' TO SEE ACTION 
70 PRINT “MON C,I,0" 

80 REM BLOAD THE ASSEMBLER 
90 PRINT "BLOAD ASMDISK 4.0" 
100 REM GET INTO THE MONITOR 
110 PRINT "CALL-151"° 

120 REM UNLOCK BANK 1 OF LANG CARD 


1 REM THIS PROGRAM MAKES A FILE 
2 REM ‘ASMDISK 4.0 MODIFIER’ 
3 REM WHICH IS THEN EXECUTABLE 


4 REM CREATED 1/10/81 


130 PRINT "C089" 5S REM BY 
140 PRINT "C089" 6 REM C. J. WELMAN 
150 REM BLOAD BLOCK MOVE & COPY 7 REM SANTA ANA CA 92707 


160 PRINT "BLOAD BMC A$D001,A$D001" 
170 REM BLOAD EDITASM 

180 PRINT "BLOAD EDITASM AS$D13C,AS$D13C" 

190 REM WRITE PROTECT LANG CARD 

200 PRINT "CO8A" 

210 REM ADD ROUTINE TO TURN ON BANK 1 OF LANGUAGE CARD EACH TI 
ME $1010 IS CALLED 

220 PRINT "101C:20 CC 24" 

230 PRINT "24CC:AC 88 CO 20 80 1F 60" 

240 REM MODIFY ASSEMBLER TO ADD 'NEW.NML'/'MY.NML' ROUTINES & L 
OCAL VARIABLES FROM 'B.EDIT2' (NOT LOCATED THERE ANYMORE) 

250 PRINT "24D3:20 D9 24 4C 26 10 AO 00 20 8D 12 20 4a 11" 

260 PRINT "24E1:4C 66 10 00 00 00 00 00 00 00" 

270 REM PATCH ASSEMBLER 'NML' SECTION 

280 PRINT "1063:4C D3 24" 

290 PRINT "1078:4C" 

300 PRINT "1125:60 EA BA" 

310 REM MODIFY ASSEMBLER COMMAND TABLE TO REPLACE 'LOAD' WITH C 
OPY' & 'SAVE' WITH ‘EDIT! 

320 PRINT "1246:43 4F 50 00 DO" 

330 PRINT "126E:45 44 49 3B D1" 

340 REM MODIFY ASSEMBLER TO ADD '.DA WITH COMMA" 

350 PRINT "20D4:4C BO 24" 

360 PRINT "20D7:4C C7 24" 

370 PRINT "20DA:4C B5 246" 

380 PRINT "24B0:A5 DB 20 FA 19 AS DC 20 FA 19 20 8B 12 C9 2c" 
390 PRINT "24BF:F0 03 4C 8E 18 4C B5 20 AS DB 18 90 EB* 

400 REM PATCH 'PRT' VECTOR TO POINT TO SYMBOL TABLE AT $1E4E 
410 PRINT "1009:4C 4E 1E" 

420 REM TURN OFF 'MON' NOW 

430 PRINT "NOMON C,I,0" 

440 REM JUMP TO ASSEMBLER 

450 PRINT "1000G" 

460 PRINT D$;"CLOSE ASMDISK 4.0 MODIFIER" 


) LIST 

10 D$ = *": REM BLIND <CTRL D> 

20 TEXT :; CALL - 936: PRINT "S-C ASSEMBLER II VERSI 
ON 40 mr rm mmm . 

30 PRINT “S-C SOFTWARE COPYRIGHT 7-9-80" 

40 VTAB 4 

50 PRINT D$;"EXEC ASMDISK 4.0 MODIFIER" 

60 END 
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Commented Listing of DOS 3.2.1 RWTS 


I promised in the original AAL flyer that I would print 
dis-assemblies of things like DOS. Here is the first 
installment. RWTS is described in some detail in the DOS 
Reference Manual, pages 94-98. 


There are not too many differences between the various 
versions of RWTS. Each one, from 3.1 to 3.2 to 3.2.1 to 3.3, 
seems mainly to clean up errors of the previous ones. I will 
probably print some DOS 3.3 listings in the future, as well 
as more of 3.2.1. 


There is a bug in the 3.2.1 version (a bad address), at line 
2200. It works anyway, but it is sloppy. Another problem I 
have discovered the hard way: the "previous slot #" in the 
IOB should be a slot that has a disk controller in it. If 
not, RWTS may do strange things to whatever is in that slot. 
I put in "0", and it turned on my language cardi Zap! No 
more Applesoft! 


1000 * LIST OFF 
1020 * DOS 3.2.1 DISASSEMBLY SBDO 
1030 * BOB SANDER-CEDERLOF “BER 
1040 *-———_—___--_—__ 
0478- 1050 . 78 
78- 960 DRIVE. 1. TRACK . 78 THRU 47F (INDEX BY SLOT 
aEB- 1070 DRIVE. 2. TRACK . FS THRU 4FF (INDEX BY SLOT 
ar R- 1886 RETRY .COUNT : abe 
5FE- 1100 SLOT ° 2EB 
F8- 1110 SEEK.COUNT ° F 
cogo- 1150 PHASE.OFF "EQ 9C080 
Cc08sl- 1140 PHASE .ON ° 081 
co8ss- 1150 MOTOR.OFF ° 088 
C089—- 1160 MOTOR.ON ° 089 
aia 1170 ENABLE -DRIVE. 1 ° O8A 
om 1188 ~DRIVE. “BS SoBe 
CO8D- 1200 : 08D 
CO8E- 1210 O7L e O8E 
CO8F- 12 6 7H ° O8F 
002D- 0 ° 
ie BR 
oe Bee 
0048- 1310 IOB.PNIR 8143 
B800- 1340 PRE.NYBBLE . 800 
B86A- 1340 WRITE. By 86A 
1350 READ.SECTOR : 8FD 
B965- 1360 READ.ADDRESS . 965 
BSC]- 1370 POST .NYRBLE Bh 9c] 
- 1380 SEEK .TRACK .ABSOLUTE . E 
10- 1400 ERR.WRITE. PROTECT 10 
0020- 1410 ERR. e VOLUME Bp 20 
0040- 1420 ERR.BAD.DRIVE . 0 
1430 * 
1440 “OR 0 
1450 . 800 
O- 84 48 1470 RWTS’ = STY _IOB.PNIR SAVE ADDRESS OF IOB 
EDO 3 85 49 1480 STA A 10B. -PNIR+1 
BDOG- Bc FS 06 1800 SrY SEEK COUNT UP TO 2 RE-CALIBRATIONS 
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BDO9- AO 04 1510 LDY #4 


B- 8¢ F8 04 152 STY COUNT 
BDOE- AO 01 ~—s- 153 LDY # POINT AT SLOT# IN IOB 
BD10- Bl 48 240 LDA (IOB.PNIR),Y SLOT# FOR THIS OPERATION 
BD13- AO OF ~=-:156 LDY #15 INI AT PREVIOUS SLOT 
pI. 60 1B OBB Gap (ACB PNER) SAME SLOT 
BD19- 8A 1298 Be SAVE NEW SLOT ON STACK 
BDIA- 48 00 PHA 
BDIB- Bl 48 ~—=«1610 LDA (IOB.PNER),Y GET OLD SLOT# 
AA 620 TAX 
BDIE- 68 1630 PLA STORE NEW SLOT # 
BDIF- 48 1640 PHA INTO OLD SLOT# SPOT 
BD20- 91 48 1650 . STA (IOB.PNIR) ,Y 
1670 * SEE IF OLD MOTOR STILL SPINNING 
BD22- BD 8E CO 1690 LDA Q7L +X GO INDO READ MODE 
BD25- AO 0 1700 .1 LDY IF DATA DOES NOT CHANGE 
BD27- BD 8C CO 1710 LDA Q6L,X FOR 96 MI 
2A- DD 8C CO 1720 .2 cup O6L,X THEN THE DRIVE IS STOPPED 
RD2D- DO F 1730 BNE ; WOOPS! IT 
2F- 88 1740 DEY TIME UP YET? 
BD30- DO F8 ~—-1750 BNE .2 NO, KEEP CHECKING 
32- 68 1760 PLA GET NEW SLOT # AGAIN 
BD33- AA 1770 . TAX 
BD34- BD 8E CO 1790 .3 LDA Q7L,X ‘SET UP TO READ 
BD37- BD 8C CO 1800 LDA O6L,X 
BD3A- BD 8C CO 1810 LDA O6L,X CURRENT DATA 
ae 1838 pun 7 CYCLE DELAY 
BD3E- PLA 
BD3F- 8E F8 05 1840 STX SLOT 
BD42- DD 0 1850 CMP Q6L,X SEE IF DATA CHANGED 
BD45- 08 1860 PHP ANSWER ON STACK 
BD46- BD 89 CO 1870 LDA MOTOR.ON,X TURN ON 
BD49- AO 1880 IDY #6 COPY POINTERS INDO PAGE ZERO 
BD4B- B 48 1890 .4 LDA TOB. PNIR) -¥ 
99 36 00 } STA DCT. PNIR-6-Y 
= ap- Cc INY DOT .PNIR . : ,3D 
BD)1- CO 0 i 2 CPY #}0 BUF.PNIR ; E, 3F 
Bp53- DO F BNE 
BD55- AO 0 1 Loy $3 GET MOTOR ON TIME FROM DCT 
BD57- Bl 3C ~—_- 1950 LDA (DCT.PNIR 
BD59- 85 47 136 STA Pe AY HIGH ONLY 
BD5B- AO 02. ~—s-19 LDY # ; 
BD5D- Bl 4 1980 LDA {{OB-PNIR) .¥ 
BD5F- AO 1 19 LDY #16 E IF SAME AS OLD DRIVE¢ 
1- D1 48 ©2000 CMP (JOB. PNIR Y 
BD63- FO 06 2010 BEY . tis 
BD65- 91 48 2020 9TK (IOB.PNIR),Y UPDATE OLD DRIVE ¢ 
BD67—- 28 2030 PLP Z STATUS 
BD68- AO 00 2040 IDY #0 10 MOTOR OFF 
BD6A- 08 2050 PHP 
ga 2060 5 ROR CHECK OF DRIVE # 
- 90 05 BCC .6 DRIVE 
E- BD 8A CO 2080 LDA .DRIVE. 1,X 
BD71- BO 03 BCS . ces 
BD73- BD 8B CO 2100 .6 LDA ENABLE.DRIVE. 
BD76- 66 35 ~=—«-2110 7 ROR DRIVE.NO SET SIGN BIT IF DRIVE 1 
BD78—- 28 2120 WAS MOTOR PROBABLY OFF? 
BD79- 08 2130 PHP 
BD7A- DO 0B 2140 . BNE .9 NO, DEFINITELY ON 
2160 * DELAY FROM 150 TO 180 MILLISECONDS 
2170 * DEPENDING ON WHAT GARBAGE IS IN A-REG 
BD7C- AO 07. ~—- 2190 LDY #7 YES, WAIT A WHILE 
7E- 20 7F BA 2200 .8 JSR SBA7F § ***BUG!!!*** SHOULD BE SBA7B 
BD81- 88 2210 DEY BUT IT WORKS ANYWAY.... 
BD82- DO FA _—s« 2220 BNE .8 
BD84— AE F8 05 2230 . LDX RESTORE SLOT# 
BD87- AO 04 = 2250 .9 LDY #4 GET TRACK # 
BD89- Bl 4 2260 LDA (TOR. PNTR rY¥ 
BD8B- 20 4B BE 2270 JSR OB. Pk 
BD8E- 28 2280 PLP WAS MOTOR DEFINITELY ON? 
BDSF- DO OD = 2290 BNE PROCESS.COMMAND YES, MOTOR ON 
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BD91- AQ 12 


BD9E- AO 


5 


B88 
BRESED 
Sl tetat ts 


aaaatanienetd 


BDC1- 
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BDFE- FO 37 


BEOO- AO 03 
BEOA- 65 2F 


BE 


DON NNNNNPMDD 
GION 
DUE Wri 
COOOS&oS 


ANAND WIS 


NWNNNDNNND 
ADA’ 


NNNNNNNNNNA 
peep oeeses 
SSssssoo0e © 


2990 


BEO6- 4C AO BE 3060 


eo 6H HHH 
_ 


+ + + % 


MOTOR WAS OFF, SO WAIT REST OF MOTOR ON TIME 
FOR APPLE DISK II, MOTOR ON TIME IS 1 SECOND. 
PART OF THIS TIME IS COUNTED DOWN WHILE SEEKING 
FOR THE TRACK. 


ABOUT 100 MICROSECONDS PER TRIP 


ON AND UP 


MOTOR TO SPEED, SO LET'S 
FIND OUT WHAT THE COMMAND IS AND DO IT! 


YES 
SET CARRY=1 IF READ, =0 IF WRITE 
SAVE ON STACK 


BED 10 ’ FOUND RIGHT TRACK 


TRY AGAIN 
23 TRY TO RE-CALIBRATE AGAIN 


DRIVE ERROR, CANNOT FIND TRACK 


PLA REMOVE CURRENT . TRACK 
aa #ERR.BAD.DRIVE 
JMP ERROR. HANDLER 


NULL COMMAND, ON THE WAY OUT.... 


BEQ RWIS.EXIT 
FORMAT COMMAND 


LDY #3 GET VOLUME# WANTED 
LDA SOB. ENTR) 2 
STA VOLUME 
JMP FORMAT 


IN PLACE AND GO FORMAT 
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o- & do BESS BSERS os 58 


co 


BE42- 20 6A B8 
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90 FO 
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READ OR WRITE COMMAND 


$3 GET VOLUME? WANTED 
(IOB.PNIR) ,¥ 
VE DESIRED VOLUME# ON STACK 
VOLUME 
#14 STORE ACTUAL VOLUME NUMBER FOUND 
(IOB. PNIR) -Y : 
ESIRED VOLUME# AGAIN 

wl IF =0, DON’T CARE 

; SEE If RIGHT VOLUME 
$ERR. WRONG. VOLUME 
7 UH OH! 
#5 


3 READ. 
3300 SAVE RESULT; IF BAD, WILL BE COMMAND 
3310 21 BAD READ 
: 20 THROW AWAY 
9 JSR POST .NYBBLE 
3 SLOT 
3350 RWIS. 
3360 CLC 
3300 * eHS 24 "BIT" TO SKIP NEXT INSTRUCTION 
ERROR. HANDLER 
3400 SEC INDICATE AN ERROR 
1 LDY #13 
3420 STA (IOB.PNIR) ,Y 
LDA .OFF,X 
3486 «FS 
3460 WRITE JSR WRITE.SECIOR 
4 BCC RWIS .EXIT 
#4 LDA #ERR.WRITE. PROTECT 
3490 BCS ERROR.HANDLER  ...ALWAYS 
3230 * SK RRALKS. 10 
3238 * VE RG IS NEGATIVE IF DRIVE 1 
3040 * AND 
550 * 
5 0 SEEK . TRACK 
5 PHA SAVE TRACK# 
? LDY il DEVICE CHARACTERISTICS 'TABLE 
LDA (DCT.PNIR),Y | FOR TYPE OF DISK 
360 ROR CARRY IF TWO PHASES PER TRACK 
36 PLA GET TRACK? AGAIN 
6 BCC .1 ONE PHASE PER TRACK 
36 ASL TWO PHASES PER TRACK, SO DOUBLE IT 
JSR .1 FIND THE 
LSR .TRACK DIVIDE IT BACK DOW 
* 
l STA TRACK 
JSR GET. IN.Y 
00 LDA ole 
3710 BIT DRIVE.NO WHICH DRIVE? 
3720 BMI . VE 
730 LDA DRIVE. 2. TRACK, 
3740 .2 STA : WHERE WE ARE RIGHT NOW 
3750 TRACK TO BE 
3760 BIT DRIVE.NO WHICH DRIVE? 
17 BMI . DRIVE 
3780 STA DRIVE.2.TRACK,Y DRIVE 2 
3200 3 SrA ORIVE 1 michtnrs 
3810 34 JMP SEEK. TRACK ABSOLUTE 
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3820 *————_____-____—______-__________ 
3830 * CONVERT SLOT*16 TO SLOT IN Y-REG 
3850 GET. SLOT. IN.Y 
BE7F— 8A 3860 TXA SLOT*16 FROM X-REG 
BE O- 4A 3870 LSR 
Bh Gh 3385 LSR 
BE83- 4A 3900 ISR 
- AB 3910 TAY SLOT INTO Y 
BE85- 60 3920 RTS 
3040 * SET UP CURRENT TRACK LOCATION 
3950 * IN DRIVE.1.TRACK OR DRIVE.2.-TRACK VECTORS, 
3395 + «INDEXED BY SLOT NUMBER. 
3980 # (A) = TRACK# TO BE SET UP 
4000 SETUP.'TRACK 
86- 48 4010 SAVE TRACK ¢ WE WANT TO SET UP 
BE87- AO 02 4020 GET DRIVE NUMBER FROM IOB 
BE89- Bl 48 4030 IDA (IOB.PNIR) ,¥ 
E8B- 6A 4040 R CARRY IF DRIVE 1, CLEAR IF 2 
BE8C- 66 35 4050 ROR DRIVE.NO MAKE NEGATIVE IF 1, POSITIVE IF 2 
BEBE 20 7F BE 4060 JSR GET. SLOT. IN.Y 
9]- 4070 GET TRACK # 
BEQ2- OA 4080 ASL DOUBLE IT 
3- 24 35 4 BIT DRIVE.NO WHICH DRIVE? 
BE95- 30 05 0, 4100 PMI VE 1 
BE97- F8 04 411 STA BRIVE.2.TRACK,Y 
- 48 % 04 1148 1 STA DRIVE. 1. TRACK ,Y 
- 60 4140 52 RIS 
4150 * 
4160 FORMAT 
SYMBOL, TABLE 
003E- BUF.PNIR BE37- RWIS EXIT 
0478- CURRENT. TRACK ore SEARCH .COUNT 
003C- DCT. PNIR O6F8- SEEK .COUNT 
0478- DRIVE. 1.TRACK BE4B- ° 
OO3E. DRIVE: 25 TRACK -01=BESC, :02=BE6B, .03=BE79, .04=BE7C 
CORR pNORIVE. 1 BAIE- SEEK TRACK , ABSOLUTE 
OSB” ENABLE -DRIVE.2 jOlEBESC, - O2=BESF 
0010- ERR. . PROTECT po” ar 
0020- ERR. WRONG. VOLUME OOeE A 
33- . 2- WRITE 
GET. SLOT. IN.Y ~ WRITE. SECTOR 
0048- IOB;PNIR 


COMMAND 
-O1=BDAF, .02=BDB4, .21=BDBC, .03=BDC] 
04> , -O5=BDEO, .06=BDF7, .07=BDFA 
COBSBDEE -09=BE00, .10=BE09, .11=BEI1F 


CO8C- O6L 
CO8F- O7H 
CO8E- O7L 
B965- ADDRESS 


Be tH pie 
-09=8D87, .10=BD91, 211=BD93' ° 


& Command Interface for S-C Assembler II 


Here is yet another way to add new commands to Version 4.0. 
You are somewhat familiar with the use of the & in Applesoft. 
This little program patches the assembler so that you can add 
as many new commands as you wish. 


I have shown as examples the EDIT, COPY, and SYM commands. 
You need to fill in the correct starting address in lines 
1250 and 1260. 


Use the .TF directive to direct the object code to a file. 
Then use BRUN to install the patch. Lines 1100-1120 patch 
the assembler to hook in the code at lines 3010-3100. After 
it is hooked in, make a new copy of the assembler by using 
BSAVE ASMDISK 4.0 WITH &,ASFD7,LS$.... (Fill in the 
appropriate length, depending on what else you have added to 
the assembler in the past.) 


1000 *--------------------------------- 
1010 * & COMMAND INTERFACE 
1020 * 
1030 * &<COMMAND STRING> 
1040 * 
1050 *--------------------------------- 
1060 * 
1070 * ORIGIN MUST BE SET SO THAT LAST BYTE 
1080 * IS AT SOFFF. 
1085 -OR $FD1 
1090 *--------------------------------- 
OFD1- A9 AF —:1100 LDA #AMPERSAND. INTERFACE-$103D 
OFD3- 8D 3C 10 1110 STA $103C 
OFD6- 60 1120 RTS 
1130 *--------------------------------- 
OFD7- 4C 00 10 1140 JMP $1000 
1150 *------------~-------------------- 
OFDA- 05 03 1160 AOPTBL .HS 0503 
OPDC- 45 44 49 1170 »AS /EDI/ 
OFDF- OF 10 1180 .DA EDIT-1 
OFE1- 43 4F 50 1190 »AS /COP/ 
OFE4- 0F 10 1200 .DA COPY-1 
OFE6- 53 59 4D 1210 -AS /SYM/ 
OFE9- 4D 1E 1220 .DA STPRNT-1 
OFEB- 00 1230 »HS 00 END OF TABLE 
1240 *-------~------------------------- 
1010- 1250 EDIT .£Q $1010 
1010- 1260 COPY .EQ $1010 
1E4E- 1270 STPRNT .EQ S1E4E 
3000 *-------------------- === 
3010 AMPERSAND. INTERFACE 
OFEC- C9 26 3020 CMP #'& 
OFEE- FO 03 3030 BEQ .1 
OFFO- 4C 63 10 3040 JMP $1063 
OFF3- A9 DA 3050 .1 LDA #AOPTBL 
OFF5- 85 02 3060 STA $02 
OFF7- A9 OF 3070 LDA /AOPTBL 
OFF9- 85 03 3080 STA $03 
OFFB- A9 01 3090 LDA #1 _ 20 - 
OFFD- 4C 47 10 3100 JMP $1047 
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